home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / CADAR / Symbols / Chords / put-inside-n-octave < prev    next >
Lisp/Scheme  |  1998-10-22  |  515b  |  19 lines
  1. put-inside-n-octave 
  2. symbols low high &optional (scale-length 12)
  3.  
  4. transposes all symbols outside range of low and high into
  5. range between low and high with optional scale-length 
  6. which defaults to 12 (chromatic)
  7.  
  8.  
  9. (setq symbols '(abcd efgh -i-j-k-l mno pq r = stu -v-x z))
  10.  
  11. (put-inside-n-octave symbols 'a 'm)
  12. ->(abcd efgh edcb mbc de f = ghi db b)
  13.  
  14. (put-inside-n-octave symbols '-j 'o)
  15. ->(abcd efgh -i-jcb mno de f = ghi -jb n)
  16.  
  17. (put-inside-n-octave symbols '-j 'o 7)
  18. ->(abcd efgh -i-j-d-e mno ij k = lmn -h-j l)
  19.